home *** CD-ROM | disk | FTP | other *** search
/ Amiga Special: 4 Vollversionen / Amiga Special CD-ROM 4 Vollversionen.iso / rexx / demoskript.afinder next >
Encoding:
Text File  |  1997-07-25  |  1.9 KB  |  94 lines
  1. /*
  2.  *
  3. $VER: DemoSkript.afinder 1.0 (17.07.97)
  4.  *
  5.  *    Demonstriert einige der ARexx-Befehle des ARTIKEL-Finders
  6.  *
  7.  */
  8.  
  9. /* Pfad zur ARTIKELFinder-Datei */
  10. pfad    = "data/"
  11.  
  12. /* Name der ARTIKELFinder-Datei */
  13. datei = "AMagazin_Demo"
  14.  
  15. options results
  16.  
  17. /* Nur notwendig, wenn Skript NICHT vom ARTIKELFinder aus aufgerufen wird */
  18. /*
  19. address 'AFINDER.1'
  20. */
  21.  
  22. SCREENTOFRONT
  23. WINDOWTOFRONT
  24. ACTIVATEWINDOW
  25.  
  26. GETATTR AFINDER STEM APPLIKATION
  27. say 'Programmversion : 'APPLIKATION.VERSION
  28. say 'PubScreenName   : 'APPLIKATION.SCREEN
  29. say 'ArexxPortName   : 'APPLIKATION.AREXX
  30. say 'ARexxFehler     : 'APPLIKATION.AREXXERROR
  31. say 'ISAMFehler      : 'APPLIKATION.ISAMERROR
  32. say 'Aktuelle Datei  : 'APPLIKATION.FILENAME
  33.  
  34. OPEN NAME pfad||datei
  35. if rc ~= 0 then
  36. exit 10
  37.  
  38. if result == 0 then
  39.     say "Datei konnte nicht geöffnet werden"
  40. else do
  41.     say "Datei wurde erfolgreich geöffnet"
  42.  
  43.     GETATTR AFINDER FIELD FILENAME VAR openfile
  44.     say "Die aktuelle Datei lautet: " openfile
  45.  
  46.     GETFIELD "Artikel"
  47.     feld_artikel = result
  48.     say "Erster Artikel: " feld_artikel
  49.  
  50.     SELECTRECORD LAST
  51.  
  52.     GETFIELD "Artikel"
  53.     feld_artikel = result
  54.     say "Letzter Artikel: " feld_artikel
  55.  
  56.     SELECTRECORD NEXT
  57.     say "SELECTRECORD NEXT: " result
  58.     if result ~= 1 then do
  59.         if result == 0 then
  60.             say "Dateiende erreicht"
  61.     end
  62.  
  63.     SELECTRECORD FIRST
  64.     SELECTRECORD NEXT
  65.     SELECTRECORD PREVIOUS
  66.     say "SELECTRECORD PREVIOUS: " result
  67.     SELECTRECORD PREVIOUS
  68.     say "SELECTRECORD PREVIOUS: " result
  69.     if result ~= 1 then do
  70.         if result == 0 then
  71.             say "Dateianfang erreicht"
  72.     end
  73.  
  74.     SELECTFIELDS artikel hinweise beschreibung
  75.     say "SELECTFIELDS: "rc result
  76.  
  77.     SEARCHSEQ PATTERN "Grafik" FIELDS OBEYCASE
  78.     say "SEARCHSEQ: "rc result
  79.  
  80.     GETATTR OBJECT SEARCHVARS FIELD SEARCHSEQ
  81.     say "SEARCHVARS: "rc result
  82.  
  83.     SEARCHHIER KEY "cd"
  84.     say "SEARCHHIER: "rc result
  85.  
  86.     GETATTR OBJECT SEARCHVARS FIELD SEARCHHIER
  87.     say "SEARCHVARS: "rc result
  88.  
  89.     QUITSEARCH
  90.  
  91.     CLOSE
  92.     say "Datei wurde geschlossen"
  93. end
  94.